From bb621b01c90c481c03148c0a907d6fa61e2816be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 8 Mar 1993 07:44:39 +0000 Subject: [PATCH] entered into RCS --- lisp/emacs-lisp/levents.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el index f38a25c2fbf..1a15e725e73 100644 --- a/lisp/emacs-lisp/levents.el +++ b/lisp/emacs-lisp/levents.el @@ -230,7 +230,7 @@ will be returned for events which have no direct ASCII equivalent." (defun event-x (event) "Returns the X position in characters of the given mouse-related event." (/ (car (posn-col-row (event-end event))) - (character-width (window-frame (event-window event))))) + (frame-char-width (window-frame (event-window event))))) (defun event-x-pixel (event) "Returns the X position in pixels of the given mouse-related event." @@ -239,7 +239,7 @@ will be returned for events which have no direct ASCII equivalent." (defun event-y (event) "Returns the Y position in characters of the given mouse-related event." (/ (cdr (posn-col-row (event-end event))) - (character-width (window-frame (event-window event))))) + (frame-char-height (window-frame (event-window event))))) (defun event-y-pixel (event) "Returns the Y position in pixels of the given mouse-related event." -- 2.30.2